home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / PSC_FileSt1924438162005.psc / PSC FileStore / frmAbout.frm < prev    next >
Text File  |  2005-08-09  |  4KB  |  135 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About Box"
  5.    ClientHeight    =   2340
  6.    ClientLeft      =   45
  7.    ClientTop       =   345
  8.    ClientWidth     =   5670
  9.    ClipControls    =   0   'False
  10.    HelpContextID   =   280
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2340
  15.    ScaleWidth      =   5670
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.CommandButton cmdOK 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "OK"
  20.       Default         =   -1  'True
  21.       Height          =   345
  22.       Left            =   2205
  23.       TabIndex        =   0
  24.       Top             =   1785
  25.       Width           =   1260
  26.    End
  27.    Begin VB.Label lblVersion 
  28.       Alignment       =   2  'Center
  29.       Caption         =   "Version"
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   225
  40.       Left            =   300
  41.       TabIndex        =   4
  42.       Top             =   720
  43.       Width           =   5085
  44.    End
  45.    Begin VB.Label Label5 
  46.       Alignment       =   2  'Center
  47.       Caption         =   "Program Name"
  48.       BeginProperty Font 
  49.          Name            =   "Arial"
  50.          Size            =   18
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H000000C0&
  58.       Height          =   480
  59.       Left            =   293
  60.       TabIndex        =   3
  61.       Top             =   120
  62.       Width           =   5085
  63.    End
  64.    Begin VB.Label Label3 
  65.       Alignment       =   2  'Center
  66.       Caption         =   "Alpha Tester: Miguel Inacio"
  67.       BeginProperty Font 
  68.          Name            =   "MS Sans Serif"
  69.          Size            =   9.75
  70.          Charset         =   0
  71.          Weight          =   700
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       ForeColor       =   &H00800000&
  77.       Height          =   240
  78.       Left            =   300
  79.       TabIndex        =   2
  80.       Top             =   1425
  81.       Width           =   5085
  82.    End
  83.    Begin VB.Label Label2 
  84.       Alignment       =   2  'Center
  85.       Caption         =   "Author: George Inacio"
  86.       BeginProperty Font 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   700
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       ForeColor       =   &H00008000&
  96.       Height          =   240
  97.       Left            =   300
  98.       TabIndex        =   1
  99.       Top             =   1065
  100.       Width           =   5085
  101.    End
  102. End
  103. Attribute VB_Name = "frmAbout"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109.  
  110. Private Sub cmdOK_Click()
  111.  
  112.     Unload Me
  113.  
  114. End Sub
  115.  
  116. Private Sub Form_Load()
  117.  
  118.     Me.Caption = gsProgName & " - " & Me.Caption & " - " & gsOwner
  119.     Me.Move ((Screen.Width - Me.Width) \ 2), ((Screen.Height - Me.Height) \ 2)
  120.     Label5.Caption = gsProgName
  121.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & " Build " & App.Revision
  122.  
  123. End Sub
  124.  
  125. Private Sub Form_Unload(Cancel As Integer)
  126.  
  127.     Set frmAbout = Nothing
  128.  
  129. End Sub
  130.  
  131. ':)Code Fixer V3.0.9 (04/08/2005 18:02:40) 1 + 24 = 25 Lines Thanks Ulli for inspiration and lots of code.
  132.  
  133. ':) Ulli's VB Code Formatter V2.17.9 (2005-Aug-09 21:50)  Decl: 1  Code: 26  Total: 27 Lines
  134. ':) CommentOnly: 1 (3.7%)  Commented: 0 (0%)  Empty: 10 (37%)  Max Logic Depth: 1
  135.